home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs03.d81 / autohex.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  1KB  |  21 lines
  1. 10 PRINT"[147]":CK=0:POKE53280,14:POKE53281,14
  2. 20 FORI=828TO953:READA:POKEI,A:CK=CK+A:NEXT
  3. 30 IFCK<>13221THENPRINT"  ERROR IN DATA STATEMENTS"
  4. 35 PRINTTAB(83)"   AUTO-HEX ENTRY IS ACTIVATED!!"
  5. 40 PRINT" ANY NUMBER MAY NOW BE ENTERED IN ANY"
  6. 50 PRINT" MODE. THIS MEANS HEX OR BINARY NUMBERS"
  7. 60 PRINT" MAY BE FREELY INTERCHANGED FOR DECIMAL."
  8. 70 PRINT" PRECEDE A HEX NUMBER WITH A '$', AND A ";
  9. 80 PRINT" BINARY NUMBER WITH A '%'.
  10. 82 [153]" TO TEST, ENTER PRINT $C000, AND THE"
  11. 83 [153]" RESPONSE SHOULD BE 49152."
  12. 90 [158]828:[128]
  13. 100 [131]169,71,160,3,141,10,3,140,11,3,96,169,0,133,13,32,115
  14. 101 [131]0,201,36,240,10,201,37,240,65,32,121,0,76,141,174,32,141
  15. 102 [131]3,32,115,0,144,11,201,65,144,31,201,71,176,27,56,233,7
  16. 103 [131]56,233,48,72,165,97,240,7,24,105,4,176,14,133,97,104,240
  17. 104 [131]222,32,126,189,76,95,3,76,121,0,76,126,185,169,0,162,10
  18. 105 [131]149,93,202,16,251,96,32,141,3,32,115,0,201,50,176,230,201
  19. 106 [131]48,144,226,233,48,72,165,97,240,4,230,97,240,218,104,240,231
  20. 107 [131]32,126,189,76,154,3,0
  21.